<!--#include file="Data.asp"-->
<%
'Call NuoHa_kg()	'ʱȥǰһ'

Dim NuoHa_Timer_Start,NuoHa
NuoHa_Timer_Start=timer()
Set NuoHa=server.CreateObject("NuoHa.Com")



'NuoHaվϵͳAsp԰
'ƣŵ
'ٷַHttp://NuoHa.Com
'ϵQQ2234809
'ϵMSNNuoHa@msn.hb.cn
'䣺NuoHa@NuoHa.Com
'Ʒʱ䣺2010-5-18

'MSSQLSERVER2000ݿ

Dim NuoHa_Conn_Str,Conn
NuoHa_Conn_Str="driver={SQL Server};server="&NuoHa_SQL_SERVERIP&";uid="&NuoHa_SQL_UserName&";pwd="&NuoHa_SQL_PassWord&";database="&NuoHa_SQL_DataName
Set Conn=server.CreateObject("ADODB.connection")
Conn.open NuoHa_Conn_Str

'SQLע˵ִ, "|" ָ
Dim NuoHa_Sql_H,NuoHa_Sql_H_D,NuoHa_Sql_H_A,NuoHa_Sql_H_P_G_C,NuoHa_Sql_H_N,NuoHa_Sql_H_C,NuoHa_Sql_H_UA
NuoHa_Sql_H=" and|update|exec|insert|delete| count|master|truncate|declare|drop|create|eval|xp_|sp_|command|dir|update "
NuoHa_Sql_H_D=Split(NuoHa_Sql_H, "|")
NuoHa_Sql_H_A=UBound(NuoHa_Sql_H_D)

'POSTݡ
If Request.Form<>"" Then
For Each NuoHa_Sql_H_P_G_C In Request.Form
For NuoHa_Sql_H_N=0 To NuoHa_Sql_H_A
If InStr(LCase(Request.Form(NuoHa_Sql_H_P_G_C)),NuoHa_Sql_H_D(NuoHa_Sql_H_N))<>0 Then
'¼ע
NuoHa_Sql_H_C="עʱ䣺"&Now()&Chr(13)&Chr(10)&"ע뷽ʽPOST"&Chr(13)&Chr(10)&"עݣ"&Request.Form(""&NuoHa_Sql_H_P_G_C&"")&"  [:"&NuoHa_Sql_H_P_G_C&"]"&Chr(13)&Chr(10)&"עɣУ"&Request.ServerVariables("HTTP_X_UP_CALLING_LINE_ID")&"|"&Request.ServerVariables("HTTP_X_FORWARDED_FOR")&"|"&Request.ServerVariables("REMOTE_ADDR")&Chr(13)&Chr(10)&"ҳַhttp://"&request.ServerVariables("SERVER_NAME")&request.ServerVariables("HTTP_URL")&Chr(13)&Chr(10)&"ע"&request.ServerVariables("HTTP_USER_AGENT")&Chr(13)&Chr(10)&Chr(13)&Chr(10)
Response.write NuoHa.Add_Txt("/Wap_log/Injection/"&year(date)&month(date)&day(date)&hour(time)&minute(time)&second(time)&timer&".txt",NuoHa_Sql_H_C)
NuoHa_Sql_H_UA=LCase(Request.ServerVariables("HTTP_USER_AGENT"))
If InStr(NuoHa_Sql_H_UA,"msie")=0 and InStr(NuoHa_Sql_H_UA,"winw")=0 Then
Call Wap_Head("")
response.write "<p align=""left"">"
Response.write "ύݺвַ"&NuoHa_Sql_H_D(NuoHa_Sql_H_N)&"<br/>"
Response.write "<anchor><prev/></anchor>"
Call Wap_End()
Else
Call Web_Head("")
response.write "<div align=""left"">"
Response.write "ύݺвַ"&NuoHa_Sql_H_D(NuoHa_Sql_H_N)&"<br/>"
Response.write "<a href=""javascript:history.go(-1)""></a>"
Call Web_End()
End If
Call NuoHa_Conn()
Response.End
End If
Next
Next
End If

'GETݡ
If Request.QueryString<>"" Then
For Each NuoHa_Sql_H_P_G_C In Request.QueryString
For NuoHa_Sql_H_N=0 To NuoHa_Sql_H_A
If InStr(LCase(Request.QueryString(NuoHa_Sql_H_P_G_C)),NuoHa_Sql_H_D(NuoHa_Sql_H_N))<>0 Then
'¼ע
NuoHa_Sql_H_C="עʱ䣺"&Now()&Chr(13)&Chr(10)&"ע뷽ʽGET"&Chr(13)&Chr(10)&"עݣ"&Request.QueryString(""&NuoHa_Sql_H_P_G_C&"")&"  [:"&NuoHa_Sql_H_P_G_C&"]"&Chr(13)&Chr(10)&"עɣУ"&Request.ServerVariables("HTTP_X_UP_CALLING_LINE_ID")&"|"&Request.ServerVariables("HTTP_X_FORWARDED_FOR")&"|"&Request.ServerVariables("REMOTE_ADDR")&Chr(13)&Chr(10)&"ҳַhttp://"&request.ServerVariables("SERVER_NAME")&request.ServerVariables("HTTP_URL")&Chr(13)&Chr(10)&"ע"&request.ServerVariables("HTTP_USER_AGENT")&Chr(13)&Chr(10)&Chr(13)&Chr(10)
Response.write NuoHa.Add_Txt("/Wap_log/Injection/"&year(date)&month(date)&day(date)&hour(time)&minute(time)&second(time)&timer&".txt",NuoHa_Sql_H_C)
NuoHa_Sql_H_UA=LCase(Request.ServerVariables("HTTP_USER_AGENT"))
If InStr(NuoHa_Sql_H_UA,"msie")=0 and InStr(NuoHa_Sql_H_UA,"winw")=0 Then
Call Wap_Head("")
response.write "<p align=""left"">"
Response.write "ύݺвַ"&NuoHa_Sql_H_D(NuoHa_Sql_H_N)&"<br/>"
Response.write "<anchor><prev/></anchor>"
Call Wap_End()
Else
Call Web_Head("")
response.write "<div align=""left"">"
Response.write "ύݺвַ"&NuoHa_Sql_H_D(NuoHa_Sql_H_N)&"<br/>"
Response.write "<a href=""javascript:history.go(-1)""></a>"
Call Web_End()
End If
Call NuoHa_Conn()
Response.End
End If
Next
Next
End If

'--------Cookies-------------------
If Request.Cookies<>"" Then
For Each NuoHa_Sql_H_P_G_C In Request.Cookies
For NuoHa_Sql_H_N=0 To NuoHa_Sql_H_A
If InStr(LCase(Request.Cookies(NuoHa_Sql_H_P_G_C)),NuoHa_Sql_H_D(NuoHa_Sql_H_N))<>0 Then
'¼ע
NuoHa_Sql_H_C="עʱ䣺"&Now()&Chr(13)&Chr(10)&"ע뷽ʽCookies"&Chr(13)&Chr(10)&"עݣ"&Request.Cookies(""&NuoHa_Sql_H_P_G_C&"")&"  [:"&NuoHa_Sql_H_P_G_C&"]"&Chr(13)&Chr(10)&"עɣУ"&Request.ServerVariables("HTTP_X_UP_CALLING_LINE_ID")&"|"&Request.ServerVariables("HTTP_X_FORWARDED_FOR")&"|"&Request.ServerVariables("REMOTE_ADDR")&Chr(13)&Chr(10)&"ҳַhttp://"&request.ServerVariables("SERVER_NAME")&request.ServerVariables("HTTP_URL")&Chr(13)&Chr(10)&"ע"&request.ServerVariables("HTTP_USER_AGENT")&Chr(13)&Chr(10)&Chr(13)&Chr(10)
Response.write NuoHa.Add_Txt("/Wap_log/Injection/"&year(date)&month(date)&day(date)&hour(time)&minute(time)&second(time)&timer&".txt",NuoHa_Sql_H_C)
NuoHa_Sql_H_UA=LCase(Request.ServerVariables("HTTP_USER_AGENT"))
If InStr(NuoHa_Sql_H_UA,"msie")=0 and InStr(NuoHa_Sql_H_UA,"winw")=0 Then
Call Wap_Head("")
response.write "<p align=""left"">"
Response.write "ύݺвַ"&NuoHa_Sql_H_D(NuoHa_Sql_H_N)&"<br/>"
Response.write "<anchor><prev/></anchor>"
Call Wap_End()
Else
Call Web_Head("")
response.write "<div align=""left"">"
Response.write "ύݺвַ"&NuoHa_Sql_H_D(NuoHa_Sql_H_N)&"<br/>"
Response.write "<a href=""javascript:history.go(-1)""></a>"
Call Web_End()
End If
Call NuoHa_Conn()
Response.End
End If
Next
Next
End If

Sub Web_Head(Head_Title)
'Response.ContentType="application/vnd.wap.xhtml+xml; charset=utf-8"
Response.write "<?xml version=""1.0"" encoding=""UTF-8""?>"
Response.write "<!DOCTYPE html PUBLIC ""-//WAPFORUM//DTD XHTML Mobile 1.0//EN"" ""http://www.wapforum.org/DTD/xhtml-mobile10.dtd"">"
Response.write "<html xmlns=""http://www.w3.org/1999/xhtml"">"
Response.write "<head>"
Response.write "<meta http-equiv=""Content-Type"" content=""text/html; charset=UTF-8""/>"
Response.write "<meta http-equiv=""Content-Language"" content=""zh-CN"" />"
Response.write "<meta name=""Website"" content="""&website_d&""" />"
Response.write "<meta name=""Description"" content=""" & website_n & """ />"
Response.write "<meta name=""Keywords"" content=""" & Head_Title & """ />"
Response.write "<title>" & Head_Title & "</title>"
Response.Write "<link rel=""icon"" href=""/Icon.gif"" />"
If NH_wap_c<>"0" Then
Response.Write "<link rel=""stylesheet"" href=""/Style/Css/"&NH_wap_c&"_"&NH_wap_s&".css"" type=""text/css"" />"
'Response.write "<bgsound src=""/Style/Mid/"&Random_N(1,15)&".mid"" loop=""infinite""/>"
End If
Response.write "</head><body>"
End Sub

Sub Web_End()
Response.write "</div></body></html>"
End Sub

Sub Wap_Head(Head_Title)
Response.ContentType="text/vnd.wap.wml; charset=utf-8"
Response.write "<?xml version=""1.0"" encoding=""utf-8""?>"
Response.write "<!DOCTYPE wml PUBLIC ""-//WAPFORUM//DTD WML 1.1//EN"" ""http://www.wapforum.org/DTD/wml_1.1.xml"">"
Response.write "<wml>"
Response.write "<head>"
Response.write "<meta http-equiv=""Cache-Control"" content=""max-age=0""/>"
Response.write "<meta http-equiv=""Cache-Control"" content=""no-cache""/>"
Response.write "</head>"
Response.write "<card title=""" & Head_Title & """>"
End Sub

Sub Wap_End()
Response.write "</p></card></wml>"
End Sub

Sub NuoHa_kg()
Dim NuoHa_kg_UA
NuoHa_kg_UA=LCase(Request.ServerVariables("HTTP_USER_AGENT"))
If InStr(NuoHa_kg_UA,"msie")=0 and InStr(NuoHa_kg_UA,"winw")=0 Then
Call Wap_Head("վ")
response.write "<p align=""left"">"
Response.write "վ,Ժʣлл"
Call Wap_End()
Else
Call Web_Head("վ")
response.write "<div align=""left"">"
Response.write "վ,Ժʣлл"
Call Web_End()
End If
Response.End
End Sub

Sub NuoHa_Conn()
Conn.Close
Set Conn=Nothing
Set NuoHa=Nothing
End Sub

Sub Remove_All_Application()
Dim Application_list,Application_n,Application_a
Application_list=split(Get_All_Application(),",")
Application_a=UBound(Application_list)-1
If Application_a>0 Then
For Application_n=0 to Application_a
Call Del_All_Application(Application_list(Application_n))
Next
End If
End Sub

Function Get_All_Application()
Dim Get_Application
For Each Get_Application In Application.Contents
Get_All_Application=Get_All_Application&Get_Application&","
Next
End Function

Sub Del_All_Application(Get_A)
Application.Lock
Application.Contents.Remove(Get_A)
Application.unLock
End Sub

Function Random_N(Min,Max)
Randomize
Random_N=Int((Max-Min+1)*Rnd()+Min) 
End Function
%>
<!--#include file="../Install/Asp/Set.asp"-->